(jump-to-register): Don't fail if frame-configuration-p is unbound.

diff --git a/lisp/register.el b/lisp/register.el
index 114f25fa8fd05e8c48006307641d7fb81fa1bc9d..bae40ee165cb7c46fd975c5f68ad6225c983d336 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -84,7 +84,8 @@ Argument is a character, naming the register."
   (interactive "cJump to register: ")
   (let ((val (get-register char)))
     (cond
-     ((frame-configuration-p val)
+     ((and (fboundp 'frame-configuration-p)
+          (frame-configuration-p val))
       (set-frame-configuration val))
      ((window-configuration-p val)
       (set-window-configuration val))